home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / shazam.exe / ADEMO9.VIR < prev    next >
Encoding:
Text File  |  1992-09-01  |  866 b   |  24 lines
  1.    {===================================================================
  2.  
  3.    Activate BUFFERS unit for heap memory management
  4.  
  5.    ===================================================================}
  6. procedure TGenericApp.PreInit ;
  7. begin
  8.    ReserveForData ( 32 * ( 1024 div 16 ) ) ;
  9.    InitBuffers ;
  10.    EDITORS.EditorDialog      := EditorDialog ;                { *.INC }
  11. end ;
  12.    {===================================================================
  13.    ===================================================================}
  14. procedure TGenericApp.PostInit ;
  15. begin
  16.    LoadDesktopFrom ( Names.DSK ) ;
  17. end ;
  18.    {===================================================================
  19.    ===================================================================}
  20. procedure TGenericApp.PreDone ;
  21. begin
  22.    SaveDesktopTo ( Names.DSK , 'Demo Desktop File' ) ;
  23. end ;
  24.